home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / UTIL / merryxmasWatcher 2.0.sit / merryxmasWatcher 2.0 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1995-02-20  |  5KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2861</cardID>
  8.     <listID>3614</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><true /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStack --load picture for buttons, show the about fieldloadPictButtonsif there is a cd fld "About" then set the visible of cd fld "About" to trueif there is a cd fld "Explained" then set the visible of cd fld "Explained" to falseif there is a cd fld "Changes" then set the visible of cd fld "Changes" to falseif there is a cd fld "Scan" then set the visible of cd fld "Scan" to falseif there is a cd fld "Install" then set the visible of cd fld "Install" to falseend openStackon loadPictButtons --loads picture buttonsif there is a window "buttons" then exit to HyperCard --picture is already loadedpicture "buttons",resource,rect,falseif there is a window "buttons" then --set rectangle and show itset the left of window "buttons" to the left of this cardset the top of window "buttons" to the top of this cardset the visible of window "buttons" to true --show itelseanswer "Sorry, an error occured while loading the pictures." & ﾂｬreturn & return & "Quit HyperCard and try to increase the memory allocated to HyperCard(Get Info. from the finder)"exit to HyperCardend ifend loadPictButtonson idle --move picture window with card windowif there is a window "buttons" thenset the left of window "buttons" to the left of this cardset the top of window "buttons" to the top of this cardend ifend idleon mouseDownInPicture --clicked on a picture, look for coordinatesif the mouseloc is within "37,33,166,66" then --they clicked on Aboutset the visible of cd fld "Explained" to falseset the visible of cd fld "Changes" to falseset the visible of cd fld "Scan" to falseset the visible of cd fld "Install" to falseset the visible of cd fld "About" to trueif there is a cd fld "About" then set the scroll of cd fld "About" to 0end ifif the mouseloc is within "37,98,166,131" then --they clicked on Explainedset the visible of cd fld "About" to falseset the visible of cd fld "Changes" to falseset the visible of cd fld "Scan" to falseset the visible of cd fld "Install" to falseset the visible of cd fld "Explained" to trueif there is a cd fld "Explained" then set the scroll of cd fld "Explained" to 0end ifif the mouseloc is within "37,161,166,193" then --they clicked on Changesset the visible of cd fld "About" to falseset the visible of cd fld "Explained" to falseset the visible of cd fld "Scan" to falseset the visible of cd fld "Install" to falseset the visible of cd fld "Changes" to trueif there is a cd fld "Changes" then set the scroll of cd fld "Changes" to 0end ifif the mouseloc is within "37,223,166,256" then --they clicked on Scanif the shiftKey is down then --Scan a stacksend "scanStack" to cd fld "Scan" --card field "Scan" contains the scanning scriptend ifset the visible of cd fld "About" to falseset the visible of cd fld "Explained" to falseset the visible of cd fld "Changes" to falseset the visible of cd fld "Install" to falseset the visible of cd fld "Scan" to trueif there is a cd fld "Scan" then set the scroll of cd fld "Scan" to 0end ifif the mouseloc is within "37,284,166,316" then --they clicked on Installif the shiftKey is down then --Install the Watcher Scriptset cursor to watchsend "installWatcher" to cd fld "Changes" --I stored the watcher script in a field to avoid errors in the virus detectionend ifset the visible of cd fld "About" to falseset the visible of cd fld "Explained" to falseset the visible of cd fld "Changes" to falseset the visible of cd fld "Scan" to falseset the visible of cd fld "Install" to trueif there is a cd fld "Install" then set the scroll of cd fld "Install" to 0end ifend mouseDownInPictureon suspendStack --opening a different window in HyperCard, close buttons windowif there is a window "buttons" then close window "buttons"end suspendStackon resumeStack --show the buttons window againsend "openStack" to this stackend resumeStackon closeStack --close the buttons windowif there is a window "buttons" then close window "buttons"end closeStackon install --an error occured and the user wants to install the watcher scriptsend "installWatcher" to cd fld "Changes"end installon scan --an error occured andthe user wants to scan a stacksend "scanStack" to cd fld "Scan"end scan</script>
  17.     <background id="2660" file="background_2660.xml" name="" />
  18.     <card id="2861" file="card_2861.xml" marked="false" name="" owner="2660" />
  19. </stack>
  20.